home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / PROPAGAT / 1004A.ZIP / TROPS.BAS < prev    next >
BASIC Source File  |  1987-05-12  |  4KB  |  76 lines
  1. 15 PRINT CHR$(26): REM ORIGINAL PROGRAM BY MIKE MOREKEN, TSC 2/84
  2. 20 PRINT "      *********************************************
  3. 30 PRINT "      *                                           *
  4. 40 PRINT "      *  BY DR. ALLEN KATZ, CHAIRMAN              *
  5. 50 PRINT "      *  DEPT ELECTRONICS ENGINEERING TECHNOLOGY  *
  6. 60 PRINT "      *  TRENTON STATE COLLEGE, CN550             *
  7. 70 PRINT "      *  TRENTON, NEW JERSEY 8625                 *
  8. 80 PRINT "      *                                           *
  9. 90 PRINT "      *  THE AUTHOR RESERVES RIGHTS TO THIS       *
  10. 100 PRINT "      *  PROGRAM; HOWEVER, COPYING AND USE FOR    *
  11. 110 PRINT "      *  EDUCATIONAL PURPOSES IS ENCOURAGED.      *
  12. 120 PRINT "      *                                           *
  13. 130 PRINT "      *  PLEASE REPORTS ANY ERRORS OR PROBLEMS    *
  14. 140 PRINT "      *  WITH THIS PROGRAM TO THE AUTHOR.         *
  15. 150 PRINT "      *  TEL (609) 771 2487                       *
  16. 160 PRINT "      *                                           *
  17. 170 PRINT "      *********************************************
  18. 180 R=6371.4: PI=4*ATN(1): REM 1 KM=.62137  MILES: R=EARTH RADIUS IN KM
  19. 185 PRINT: PRINT "TROPOSCATTER PATH LOSS PROGRAM V1.0M 2/2/86"
  20. 220 PRINT: PRINT "PLEASE ENTER THE FREQUENCY IN MHz AND ALL ANGLES IN DEGREES "
  21. 230 PRINT :INPUT"DO YOU WISH TO USE THE ENGLISH OR METRIC SYSTEM (E/M)";A$: PRINT CHR$(26)
  22. 240 IF A$="M" THEN Q$=" IN METERS" 
  23. 250 IF A$="M" THEN R$=" IN KILOMETERS" 
  24. 260 IF A$="E" THEN Q$=" IN FEET"
  25. 270 IF A$="E" THEN R$=" IN MILES"
  26. 280 REM**********TX****************
  27. 290 INPUT"IS THERE AN OBSTRUCTION BETWEEN THE TX AND HORIZON (Y/N)";O$
  28. 300 IF O$="N" THEN AA=0:IF AA=0 THEN 400
  29. 310 PRINT "WHAT IS THE TX HEIGHT";Q$:INPUT T1
  30. 320 IF T1<0 THEN 310
  31. 330 PRINT  "WHAT IS THE HEIGHT OF THE TX OBSTRUCTION";Q$:INPUT T2
  32. 340 IF T2 <0 THEN 330
  33. 350 IF T2<T1 THEN PRINT "YOU HAVE ENTERED A NEGATIVE HORIZON"
  34. 360 PRINT "WHAT IS THE DISTANCE BETWEEN THE TX & OBSTRUCTION";R$:INPUT D1
  35. 370 IF D1<=0 THEN 360
  36. 380 REM*********RX******************
  37. 390 PRINT CHR$(26);
  38. 400 INPUT"IS THERE AN OBSTRUCTION BETWEEN THE RX AND HORIZON (Y/N)";P$
  39. 410 IF P$="N" THEN AB=0:IF AB=0 THEN 490
  40. 420 PRINT :PRINT "NOW THE RECEIVING END":PRINT "WHAT IS THE RX HEIGHT";Q$:INPUT T3
  41. 430 IF T3<0 THEN 350
  42. 440 PRINT "HEIGHT OF THE OBSTRUCTION IN PATH OF RX";Q$:INPUT T4
  43. 450 IF T4<0 THEN 440
  44. 460 PRINT "WHAT IS THE DISTANCE BETWEEN THIS OBSTRUCTION & THE RX";R$
  45. 470 INPUT D2
  46. 480 IF D2<=0 THEN 460
  47. 490 PRINT "WHAT IS THE DISTANCE BETWEEN THE RX & TX";R$:INPUT D3
  48. 500 IF (D1+D2)>D3 THEN 490
  49. 510 INPUT"WHAT IS THE FREQUENCY IN MHz";F
  50. 520 INPUT"WHAT IS THE BEAMWIDTH OF THE RX ANTENNA IN DEGREES";BR
  51. 530 INPUT"WHAT IS THE BEAMWIDTH OF THE TX ANTENNA IN DEGREES";BT
  52. 540 PRINT "THE REFRACTIVE INDEX TYPICALLY VARIES BETWEEN 250 & 400"
  53. 550 INPUT"WHAT IS THE REFRACTIVE INDEX";N
  54. 560 IF N<100 OR N>500 THEN 540
  55. 570 IF A$="M" THEN K=1 ELSE K=.3048
  56. 580 T1=K*T1:T2=K*T2:T3=K*T3:T4=K*T4
  57. 590 IF A$="M" THEN L=1 ELSE L=1.6093
  58. 600 D1=L*D1:D2=L*D2:D3=L*D3
  59. 610 IF D1=0 THEN 640
  60. 620 A5=(T2-T1)/(1000*D1):A6=D1/(2*R)
  61. 630 AA=(A5-A6)*(180/PI)
  62. 640 IF D2=0 THEN 670
  63. 650 B5=(T4-T3)/(1000*D2):B6=D2/(2*R)
  64. 660 AB=(B5-B6)*(180/PI)
  65. 670 AC=(D3/R)*(180/PI)
  66. 680 AS=AC+AA+AB
  67. 690 FS=32.5+(20*LOG(D3)/LOG(10))+(20*LOG(F)/LOG(10))
  68. 700 SC=21+10*AS+10*LOG(F)/LOG(10)
  69. 710 AO=(2*AS/((BR*BT)^.5)):AP=AO+2
  70. 720 RI=.2*(310-N)
  71. 730 TL=55.5+20*LOG(D3)/LOG(10)+30*LOG(F)/LOG(10)+AO+RI
  72. 740 PRINT CHR$(26);
  73. 750 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT  TAB(22);"THE TOTAL LOSS IS";TL" dB"
  74. 760 PRINT :PRINT :PRINT :PRINT :PRINT :INPUT "WANT TO TRY AGAIN (Y/N)";Y$:IF Y$="Y" THEN PRINT CHR$(26): GOTO 290
  75. 770 END
  76.